home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / kxc / towns_os / pics / hspset.asm next >
Assembly Source File  |  1991-10-18  |  690b  |  45 lines
  1. ;
  2. ;    pset & point
  3. ;    for Screen_mode 9,10,11
  4. ;    written by KXC KAROU･UOTA
  5.  
  6.     .386p
  7.  
  8.     public    HS_psetm10
  9.     public    HS_pointm10
  10.  
  11.  
  12. code    segment 'CODE'
  13.     assume cs:code
  14.  
  15. ;    HS_psetm10( x,y,color ) ;
  16.     align    4
  17. HS_psetm10    proc     near    
  18.         mov    ax,104h
  19.         mov    fs,ax
  20.         mov    eax,[esp+8]
  21.         mov    edx,[esp+4]
  22.         shl    eax,8+2        ;eax *= ( 512*2 )
  23.         lea    edx,[edx*2+eax]
  24.         mov    ax,[esp+12]
  25.         mov    fs:[edx],ax
  26.         ret
  27. HS_psetm10    endp
  28.  
  29.  
  30. ;    color = HS_pointm10( x,y ) ;
  31.     align    4
  32. HS_pointm10    proc     near    
  33.         mov    ax,104h
  34.         mov    fs,ax
  35.         mov    eax,[esp+8]
  36.         mov    edx,[esp+4]
  37.         shl    eax,8+2        ;eax *= ( 512*2 )
  38.         lea    edx,[edx*2+eax]
  39.         movzx    eax,word ptr fs:[edx]
  40.         ret
  41. HS_pointm10    endp
  42.  
  43. code    ends
  44.     end
  45.